﻿Public Class MessageEventArgs
    Inherits EventArgs

    Private _Cancel As Boolean
    Public Property cancel As Boolean
        Get
            Return _Cancel
        End Get
        Set(value As Boolean)
            _Cancel = value
        End Set
    End Property
    Public Function getmess(Of xtype)(ByRef o As xtype) As xtype
        Return CType(_message, xtype)
    End Function
    Private _message As Object
    Public Property message As Object
        Get
            Return _message
        End Get
        Set(value As Object)
            _message = value
        End Set
    End Property
    Private _StringMessage As String
    Public Property StringMessage() As String
        Get
            Return _StringMessage
        End Get
        Set(ByVal value As String)
            _StringMessage = value
        End Set
    End Property

    Public Sub New(ByVal mess As Object)
        _message = mess
    End Sub
    Public Sub New(ByVal mess As String)
        _StringMessage = mess
    End Sub
End Class
